home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGIALS
/
PTUTOR2B.LZH
/
READINT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
923b
|
27 lines
(* Chapter 10 - Program 2 *)
program Read_Some_Variables;
var Index : byte;
Number1,Number2,Number3 : integer;
begin (* main program *)
Writeln('This is the ''Read'' portion of the program');
for Index := 1 to 5 do begin
Write('Enter up to three integers ');
Read(Number1,Number2,Number3);
Writeln('Thank you');
Writeln('The numbers entered were ',Number1:6,Number2:6,
Number3:6);
end;
Writeln;
Writeln('This is the ''Readln'' portion of the program');
for Index := 1 to 5 do begin
Write('Enter up to three integers ');
Readln(Number1,Number2,Number3);
Writeln('Thank you');
Writeln('The numbers entered were ',Number1:6,Number2:6,
Number3:6);
end;
end. (* of main program *)